my @voter_sets = ("fo_title_pos", "tf_fo_pos", "tf_fo_title", "tf_title_pos");

my (@s0,@s1,@s2,@s3);

# @tt = [[@s0],[@s1],[@s2],[@s3]];

push @tt,\@s0;
push @tt,\@s1;
push @tt,\@s2;
push @tt,\@s3;

for($i=0;$i<@tt;$i++)
{
    for($j=$i;$j<10;$j++)
    {
	$t = $tt[$i];
	push @{$t},$j;
    }
}

for($i=0;$i<@tt;$i++)
{
    print join(" ",@{$tt[$i]} ),"\n";
}
